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ABSTRACT 

A Project  solo  module  which  explores  set  theory  is 
presented.  The  module  allows  students  to  define  three  sets  by  listing 
their  elements.  The  student  is  then  required  to  list  the  elements  of 
a new  set  using  the  elements  in  two  or  more  of  the  previous  sets.  The 
program  analyses  the  student*  s ans%iers  and  tells  him  what^  if 
anything^  is  %rrong.  A new  version  of  a grading  program  is  also 
listed.  (JY) 
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Set  Theory  and  Computers 

Most  people  think  of  computers  as  doing  numerical  computation 
the  application  of  computers  to  Education  has 
®®®”  direction.  Last  summer.  Miss  Judy  Richardson 

or  westrnghouse  High  School  developed  a program  which  allows  stu- 
dents  to  explore  set  theory.  Since  this  is  an  area  of  Mathematics 
that  does  not  utilize  computation  in  the  ordinary  sense,  there  is 
*t^j**i developing  such  programs  than  meets  the  eye. 

Judy  s work  is  all  the  more  remarkable  when  you  consider  that  she 
had  never  used  a computer  before . 

Inspired  by  this  work,  Frank  Wimberly  of  our  staff  is  devel- 
oping  two  variations  on  Judy's  program  which  he  describes  in  the 
next  section. 


Variations  on  the  Richardson  Proqrf»m 

The  first  variation  asks  the  student  to  define  three  sets  A, 

B,  and  C by  listing  their  elements.  The  student  is  then  recpiired 
to  list  the  elements  of  (AnB)u  c.  The  program  analyzes  the  stu- 
dent s answer  and  tells  him  why  it  is  wrong  (if  it  is) . Hence  it 
is  a tutorial  program,  but  one  based  on  data  the  student  selects. 
The  attached  sample  interaction  gives  an  exeunple  of  what  the  pro- 
gram looks  like  to  a student  user. 

Subroutines  for  taking  unions,  'intersections,  and  relative 
complements  are  used  to  compute  the  correct  answer  and  to  compare 
the  correct  answer  with  the  student's  answer. 

The  second  variation  being  planned  will  permit  the  student 
to  specify  the  operations  to  be  performed  on  the  sets  as  well  as 
their  elements.  This  will  involve  writing  a parser  for  interpret- 
xng  set  theoretic  expressions  much  like  those  used  in  computer 
language  compilers  for  interpreting  arithmetic  expressions.  The 
large  amount  of  student  control  allowed  in  this  variation  suggests 
classifying  it  as  Category  II,  Students  and  teachers  are  invited 
to  try  the  program  and  to  contribute  to  its  development  by  supply- 
ing comments.  While  in  NBS  simply  type: 


-ERIC 


1 


>RUN  166PW  /SETS/ 


2 


Advanced  Set  Theory 


Progress  is  being  made  on  developing  an  experimential  module 
that  utilizes  CRS#  an  advanced  set- theoretic  information  retrieval 
system  available  through  our  terminals.  Dr.  Siegfried  Treu  of 
the  National  Bureau  of  Standards  in  Washington  is  preparing  this 
module  for  us,  and  his  preliminary  report  looks  promising.  When 
we  have  had  a chance  to  evaluate  all  the  potential  of  this  approach 
we  will  probabJv  schedule  a short  in-service  institute  to  explain 
the  CRS  system. 


Revision  of  /GRADE/ 

A new  version  of  166TD  /GRADE/  has  been  prepared.  It  incor- 
porates changes  suggested  by  Mr.  Robert  Gillespie.  He  finds  his 
students  appreciate  his  posting  the  grade  bar-graph. 

-C0PY  166TD  /GRADE/  T0  TEL 
lOO  VAR»ZER0  dim  P< IO>#6COt |00> 

I to  INTEGER  A>T«J«Jt«l*l 1 
120 

130  MSa”  MEAN” 

I AO  SS*” 1 STO” 

ISO  DS»”  I” 

160  E®»**  I” 

170  PR.**WHAT  IS  MAXIMUM  GRADE  POSSIBLE”! 

ISO  INPUT  M 

190  PR. “ENTER  AS  MANY  GRADES  AS  YOU  WISH  AFTER  EACH 

195  PR. "SEPARATE  GRADES  WITH  COMMAS.  USE  CARRIAGE  RETURN” 

197  PR.”IF  YOU  NEED  MORE  THAN  ONE  LINE.” 

200  PR. "ENTER  9999  WHEN  FINISHED” 

210  PR. 

220  INPUT  G<J>  FOR  J«l  STEP  1 UNTIL  GCJ-l>c9999 

230  LET  JaJ-2 

240  FOR  Jl"l  TO  J 

250  IF  GCJtXaM  THEN  GOTO  280 

260  PR.  "GRADE  ”IG<J1>I"  EXCEEDS  MAX.  INPUT  ANOTHER  GRADE*” 

270  INPUT  G<JI>  GOTO  250 

280  LET  RI«RX6<Jt>  LET  R2«R2^G<  J1  >*6<  Jl  > 

290  LET  G1>GCJ1  >>«>I00/M  LET  SlaSXGI  LET  S2«S2^GI >*>GI 

300  IF  61»99.9  LET  6t«6l-l 

310  LET  G|aGl/|0«l  LET  P<6I >«PC Gl > ♦ I 

320  NEXT  Jt 

330  01-S0RTCCR2-CRXR1/J)  >/<J*l>  > 

340  D2aSQRT(  <S2-(S1>*>S1/J>  >/<  J-1  > > 

350  G0SUR  530 

355  PR.  PR.  ”RAW”»TAB<5>l”PEReENT” 

360  PR.  ItTAB<S>tI 

370  LET  A»INT<<Sl/J+5>/10>*10  LET  T»1NT< <D2.5>/I0>*I0 
380  FOR  la|  TO  10 
385  LET  I 1»I*I0 

390  IF  CI1>A-T>  AND  <I1<=A+T>  THEN  LET  PS*0$  LET  R$»ES  ELSE 

LET  P$*B$  LET  RT.aBS 

400  IF  A=I1  THEN  LET  RS«MS 

410  IF  <A-Tall)  0R  <A+T=II>  THEN  LET  R£»S$ 

Q 420  PR.  TABCIO)*  C PR .”<♦>”» F0R  0»1  T0  PCI > J PR.  TABC50>lP® 

FRir  INTCI*M/10>  »TAB<  5)  » I 1 :TAB<  »R$ 

4 40  NEXT  I ^ 
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450  PR.  G0SUB  530 

460  PR.  “THE  UNSCALED  MEAN  IS  “xRl/J 

470  PR.  “THE  UNSCALED  STANDARD  DEVIATION  IS  “:D1 

480  GOSUB  530 

490  PR.  “THE  SCALED  MEAN  IS  “»S1/J 

500  PR.  “THE  SCALED  STANDARD  DEVIATION  IS  “sD2 

510  G0SUB  530 

520  END 

530  PR.  CPR.“s-“tF0R  0*1  TO  303  PR.  PR*  RETURN 


WHAT  IS  MAXIMUM  GRADE  POSSIBLE? ISO 

ENTER  AS  MANY  GRADES  AS  YOU  WISH  AFTER  EACH  *?•• 

SEPARATE  GRADES  WITH  COMMAS.  USE  CARRIAGE  RETURN 
IF  YOU  NEED  MORE  THAN  ONE  LINE. 

ENTER  9999  WHEN  FINISHED 

?7B«98«88«  56«77«45« 1 1 « 198.33. 1 1 1 .45.66.98. 100.76.55.87.86.96 
798.43.66.63.96. 133. 136.78.98.75.66.78.88.98.76.73.77.9999 
GRADE  198  EXCEEDS  MAX.  INPUT  ANOTHER  GRADE* 

?9B 


RAW 

PERCENT 

0 

0 

< ♦> 

15 

10 

30 

20 

<♦><♦> 

45 

30 

1 

STD 

I 

60 

40 

I 

<)te><9te><9te><^><9te> 

I 

75 

50 

^ ^ ^ 

MEAN 

< + ><+><+><3K><3(C><5K><  + ><5|C><  + ><  + ><*><Sfe> 

I 

90 

60 

I 
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1 
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70 

< 3te> 

1 

STD 

120 
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< #> 
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90 
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II 
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II 
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II 
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II 
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II 
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II 
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1 

II 

1 

II 

1 

II 
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THE  UNSCALED  MEAN  IS  79.05555556 

THE  UNSCALED  STANDARD  DEVIATION  IS  25.60462508 


THE  SCALED  MEAN  IS  52.7037037 

THE  SCALED  STANDARD  DEVIATION  IS  17.06975005 

O 

ERIC  = 
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INTRODUCTION  TO 


SET  TtIE0RT 


This  module  allows  you  "to  create  thr>ee  different  sets  with 
elements  (in  this  case  numbers)  of  your  choice. 

The  machine  will  then  try  to  match  wits  with  you  in  ‘deciding 
which  elements  are  in  (A  fl  B)  U C. 

^ To  run  the  program  type ; -NBS 

>RUN  166FW  /SETS/ 


% t 


SAMPLE  INTERACTION  WITH  /SETS/ 


2 


THIS  IS  AN  EXERCISE  0N  THE  ELEMENTARY  0PERATI0NS  0F 
SET  THE0RY~-UNI0N  < DEN0TED  BY  AND  1NTERSECTI0N  CDEN0TED 

BY  HENCE  ‘A  I B*  MEANS  ‘A  INTERSECTI0N  B*  AND  ’A  U B* 

MEANS  ’A  UN10N  B*- 


AT  THIS  P0INT  Y0U  iMAY  DEFINE  THE  ELEMENTS  0F  THE  SET 
A*  WHEN  THE  OUESTI0N  MARK  APPEARS  TYPE  AN  INTEGER 
NUMBER  0THER  THAN  999  <UNLESS  Y0U  WANT  A T0  BE  EMPTY>. 
REPEAT  THIS  PR0CESS  UNTIL  A HAS  AS  MANY  ELEMENTS  AS 
Y0U  LIKE  AND  THEN  TYPE  999  WHEN  THE  NEXT  QUESTI0N  MARK 
APPEARS.  IF  r0U  WANT  A T0  BE  THE.  EMPTY  SET  TYPE  999 
RIGHT  AWAY. 

? 1 0 
? 15 
? !7 
7 22 
7 35 
7 27 
751 
7999 

N0W  DEFINE  B IN  THE  SAME  WAY. 

7 15 
7 I 6 
7 17 
727 
7 38 
7 A1 
7 29 
7 999 

NOW  DEFINE  C. 

727 
73B 
7 64 
7 37 
751 
7 49 
7 102 
7 999 


N0W  TYPE  THE  ELEMENTS  0F  <A  I B)  U C.  TYPE  ONE  ELE- 
MENT PER  QUESTION  MARK.  TYPE  999  AFTER  YOU  HAVE  TYPED  THE  LAST 
ELEMENT.  IF  (A  I B)  U C IS  EMPTY  TYPE  999  RIGHT  AWAY. 

7 27 
7 22 
7 17 
7 49 
7.10 
7999 

THE  ELEMENTS  0F  <A  I B)  U C ARE  EITHER  IN  C 0R  THEY 
ARE  IN  B0TH  A AND  B. 

Y0U  LEFT  0UT  THE  FOLLOWING  ELEMENTS. 

ELEMENTS  0F  C. 

30  64  37  51  102 

ELEMENTS  0F  A I B. 

15 

Y0U  LISTED  THE  FOLLOWING  AS  ELEMENTS  OF  CA  I B>  U C 
BUT  THEY  ARE  NOT  IN  C NOR  ARE  THEY  IN  BOTH  A AND  B. 

22  10 

WOULD  YOU  LIKE  TO  TRY  AGAIN7  c* 

7YES  ^ 


N0W  TYPE  THE  ELEMENTS  0F  CA  I B)  U C.  TYPE  0NE  ELE- 
MENT PER  QUESTI0N  MARK.  TYPE  999  AFTER  Y0U  HAVE  TYPED  THE  LAST 
ELEMENT.  IF  CA  I B)  U C IS  EMPTY  TYPE  999  RIGHT  AWAY. 

? I 5 
? 17 
? 27 
? 38 
? 64 
? 37 

? 49  ' ■ 

? 102 
?999 

VERY  G00D.  THAT’S  EXACTLY  RIGHT. 

W0ULD  Y0U  LIKE  T0  TRY  AGAIN? 

? N0 

LISTNH 
5 BASE  O 

10  DIM  I C 20) * JC 20) * KC 20> * AC  20) * BC 20> * CC20) * DC  20) * EC  20) * FC 20) 

* GC20) 

20  PR.  ’’THIS  IS  an  EXERCISE  0N  THE  ELEMENTARY  OPERATIONS  OF 
SET  THEORY- -UNION  CDEN0TED  BY  ’U')  AND  INTERSECTION  CDEN0TED 
BY  ’I’).  HENCE  ’A  I B’  MEANS  ’A  INTERSECTION  B’  AND  ’A  U B* 
MEANS  ’A  UNION  B ’ . 

2 9 PR. 

30  PR.  "AT  THIS  POINT  YOU  MAY  DEFINE  THE  ELEMENTS  OF  THE  SET" 

31  PR.  "A.  WHEN  THE  QUESTION  MARK  APPEARS  TYPE  AN  INTEGER  " 

32  PR.  "NUMBER  OTHER  THAN  999  CUNLESS  YOU  WANT  A TO  BE  EMPTY)." 

33  PR.  "REPEAT  THIS  PROCESS  UNTIL  A HAS  AS  MANY  ELEMENTS  AS  " 

34  PR.  "YOU  LIKE  AND  THEN  TYPE  999  WHEN  THE  NEXT  OLIESTION  MARK" 

5 b Pr. . i'  Pt  • ; S . Ih  YOU  WANT  A TO  BE  THE  EMPTY  SET  TYPE  999" 

36  PR.  "RIGHT  AWAY." 

40  L = 0 
50  L=L+1 
60  INPUT  ACL) 

70  IF  ACL)<>999  THEN  50 
80  AC0)=L-1 

90  PRINT  "NOW  DEFINE  B IN  THE  SAME  WAY." 

1 00  L=0 

1 10  L=L+ 1 

1 20  INPUT  BCD 

130  IF  BCL)<>999  THEN  110 

140  BC  0) =L- 1 

150  PRINT  "NOW  DEFINE  C." 

1 60  L=0 

1 70  L=L+ 1 

ISO  INPUT  CCD 

190  IF  CCL)<>999  THEN  170 

200  CC0)=L-1 

215  PR.  "NOW  TYPE  THE  ELEMENTS  OF  CA  I B)  U C.  TYPE  ONE  ELE- 
MENT PER  QUESTION  MARK.  TYPE  999  AFTER  YOU  HAVE  TYPED  THE  LAST 
ELEMENT.  IF  CA  I B)  U C IS  EMPTY  TYPE  999  RIGHT  AWAY." 


ERIC 


220  L=0 

230  L=L+1 

240  INPUT  DCL) 

250  IF  DCL)<>999  THEN  230 

260  DC0)=L-1 

270  FOR  L=0  TO  20 

280  I CL) =ACL) 

290  JCL)=BCL) 

300  NEXT  L 


310  G0SUB  6000 
320  FOR  L=0  T0  20 
3 30  I(L’/=K(L) 

340  J(L)=CCL) 

350  NEXT  L 
360  G0SUB  5000 
370  FOR  L=0  T0  20 
3a0  E<L)=K<L) 

390  NEXT  U 

400  FOR  L=0  TO  20 


4 1 0 
420 
430 
440 
450 
460 
470 
480 
490 

5 00 
5 10 
5 20 
5 30 
540 
550 
5 60 
5 70 
580 
585 
590 
ARE- 
600 


K<0> 


20 


I (L)=E<L> 

J<L)=D<L> 

NEXT  L 
G0SUB  4000 
FOR  L=0  TO 
F(IL>=K<L> 

NEXT  L 
FOR  L«0  TO 

JCL>»E<L> 

NEXT  L 
G05UB  4000 
FOR  LrO  to  K<0) 

G<!.J»K<L> 

NEXT  L 
IF  FCOJoO 
IF  G^OX^O 
PRINT  “VERY 
GO  TO  1000 

PR.  "THE  ELEMENTS  OF  <A  I B>  U C ARE  EITHER  IN  C OR  THEY 
IN  BOTH  A AND  B.” 

IF  F<0)«0  THEN  870 


THEN  590 
THEN  590 
GOOD.  THAT'S 


EXACTLY  RIGHT. 


6 10  PRINT  ‘'YOU  LEFT  OUT  THE  FOLLOWING  ELEMENTS." 
620  FOR  L«0  TO  20 
630  I<L>aCCL> 

640  JCLXFCLJ 

650  NEXT  L 

6 60  GOStJB  6000 

670  IF  K<0>s0  THEN  720 

680  PRINT  "ELEMENTS  OF  C." 

690  PRINT  KCL>I  FOR  L= 1 TO  K<0) 


720  FOR  L=0  TO  20 
730  I<L)=A<L> 

740  J<L)=BCL> 

750  NEXT  L 
760  GO  SUB  6000 
770  FOR  L=0  TO  20 
780  I(L)=K<L) 

790  J<L)-F<L> 

800  NEXT  L 

810  GO  SUB  6000 

820  IF  K<0>=0  THEN  870 

327  PRINT  ••  " 

830  PRINT  "ELEMENTS  OF  A I B." 

8 40  PRINT  K<  Dir  F?R  L^l  T0  K<0> 

870  IF  G<0>  = 0 THEN  950 

880  PR.  "YOU  LISTED  THE  FOLLOWING  AS  ELEMENTS  OF  CA  IB)  U C 
BUT  THEY  ARE  NOT  IN  C NOR  ARE  THEY  IN  BOTH  A AND  B." 
pnipS90  PRINT  GCDl  FOR  L=  1 TO  G<0> 

£i>1^9  00  PRINT  *•  •• 

950  PRINT  "WOULD  YOU  LIKE  TO  TRY  AGAIN?"  7 


5 


960  INPUT  A$ 

9 70  IF  AS<>"N0'*  THEN  2!  5 * * 

980  G0  T0  1030 

1000  PRINT  W0ULD  Y0U  LIKE  T0  TRY  AGAIN?” 

1010  INPUT  AS 

1020  IF  AS<>”N0”  THEN  30 

1 030  END 

4000  IF  IC0)<>0  THEN  4030 
4010  K(0)=0 
4020  RETURN 

4030  IF  J<0)<>0  THEN  4080 
4040  F0R  L=0  T0  ICO) 

4050  KCL)=ICL) 

4060  NEXT  L 
4070  RETURN 
4080  Z=0 

4090  F0R  L= 1 T0  ICO) 

4100  Y=0 

4110  F0R  M=1  T0  JCO) 

4120  IF  ICDoJCM)  THEN  4150 
4130  Y=1 
4140  M=JC0) 

4150  NEXT  M 

4160  IF  Y=1  THEN  4190 

4170  Z=Z+1 

4180  KCZ)=ICL) 

4190  NEXT  L 
4200  KCC)=Z 
4210  RETURN 

5000  IF  IC0)<>0  THEN  5050 
5010  F0R  11=0  T0  JCO) 

5020  KC  I 1 )=JC  ID 
5030  NEXT  II 
5040  RETURN 

5050  IF  JC0)<>0  THEN  5100 
5060  F0R  11=0  T0  ICO) 

5070  KC I 1 ) = I C I 1 ) 


6030  KC0)=0 


5080  NEXT  II 
5090  RETURN 
5100  I2=IC0) 

5110  IC0)=IC0)+JC0) 

5120  F0R  11=12+1  T0  ICO) 
5 130  I C I 1 )=JC I 1-12) 

5140  NEXT  II 
5150  KC 1 ) = IC  1) 

5160  KC0)=1 

5170  F0R  11=2  T0  ICO) 

5 180  F0R  12=1  T0  I 1 - 1 


6 0 40  F0R  11  = 1 T0  I CO) 

6050  F0R  Jl=l  T0  JCO) 

6060  IF  IC.IDoJCJl)  THEN  6100 
6 070  KC0.)=KC0)  + 1 
6080  K1=KC0) 

6090  KCKl ) = I C I 1 ) 


6095  J1=JC0) 
6100  NEXT  J1 
6 110  NEXT  I 1 
6120  RETURN 


5190  IF  ICI1)=ICI2)  THEN  5230 

5200  NEXT  12 

5210  I 3=KC0) +1 
5215  KC0)=I3 
5220  KC I3)  = I C I 1 ) 

5230  NEXT  II 
5240  RETURN 

6000  IF  IC0)<>0  AND  JC0)<>0  THEN  6030 
6010  KC0)=0 
6020  RETURN 


